home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 441 / vdisrc12 / vdiescp1.s < prev    next >
Text File  |  1990-11-23  |  4KB  |  95 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* VDIFAST Public Domain VDI bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .iif      !(^^macdef VContrl),.include  "vdimacro.s"
  9.                     
  10. ;*************************************************************************
  11. ;*
  12. ;* Escape functions 1.
  13. ;*  This random collection is all in one module because if you use any
  14. ;*  one of these functions the overhead of having them all linked in is
  15. ;*  only about 50 bytes.
  16. ;*  
  17. ;*************************************************************************
  18.  
  19. ;*------------------------------------------------------------------------
  20. ;*-----------------------------------------------------------------------
  21. ;* vesc_honly
  22. ;*  For VDI escape calls that use a handle only.
  23. ;*  Entry:  d0.w = VDI function number.
  24. ;*-----------------------------------------------------------------------
  25. ;*------------------------------------------------------------------------
  26.  
  27. vesc_honly:
  28.           .cargs    #8,.handle.w
  29.           link      a6,#-2
  30.  
  31.           VContrl   #5,d0
  32.           
  33.           subq.l    #4,sp               ;* -> ptsout
  34.           pea       -2(a6)              ;* -> intout (most don't use this)
  35.           subq.l    #4,sp               ;* -> ptsin
  36.           pea       16(sp)              ;* -> contrl
  37.  
  38.           jmp       vdicall
  39.           
  40. ;*------------------------------------------------------------------------
  41. ;* Escape functions using just the vdi handle...
  42. ;*------------------------------------------------------------------------
  43.  
  44. _v_exit_cur::                           ;* Exit alpha/cursor mode.
  45.           moveq.l   #2,d0
  46.           bra       vesc_honly
  47. _v_enter_cur::                          ;* Enter alpha/cursor mode.
  48.           moveq.l   #3,d0
  49.           bra       vesc_honly
  50. _v_curup::                              ;* Alpha cursor up.
  51.           moveq.l   #4,d0
  52.           bra       vesc_honly
  53. _v_curdown::                            ;* Alpha cursor down.
  54.           moveq.l   #5,d0
  55.           bra       vesc_honly
  56. _v_curright::                           ;* Alpha cursor right.
  57.           moveq.l   #6,d0
  58.           bra       vesc_honly
  59. _v_curleft::                            ;* Alpha cursor left.
  60.           moveq.l   #7,d0
  61.           bra       vesc_honly
  62. _v_curhome::                            ;* Alpha cursor home.
  63.           moveq.l   #8,d0
  64.           bra       vesc_honly
  65. _v_eeos::                               ;* Erase to end of screen (alpha mode).
  66.           moveq.l   #9,d0
  67.           bra       vesc_honly
  68. _v_eeol::                               ;* Erase to end of line (alpha mode).
  69.           moveq.l   #10,d0
  70.           bra       vesc_honly
  71. _v_rvon::                               ;* Alpha reverse video on.
  72.           moveq.l   #13,d0
  73.           bra       vesc_honly
  74. _v_rvoff::                              ;* Alpha reverse video off.
  75.           moveq.l   #14,d0
  76.           bra       vesc_honly
  77. _vq_tabstatus::                         ;* Inquire tablet status.
  78.           moveq.l   #16,d0
  79.           bra       vesc_honly
  80. _v_hardcopy::                           ;* Output hardcopy.
  81.           moveq.l   #17,d0
  82.           bra       vesc_honly
  83. _v_rmcur::                              ;* Remove last graphic cursor.
  84.           moveq.l   #19,d0
  85.           bra       vesc_honly
  86. _v_form_adv::                           ;* Form advance.
  87.           moveq.l   #20,d0
  88.           bra       vesc_honly
  89. _v_clear_disp_list::                    ;* Clear display list.
  90.           moveq.l   #22,d0
  91.           bra       vesc_honly
  92.  
  93. ;*        end of code
  94.  
  95.